home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_1017_TView < prev    next >
Encoding:
Text File  |  1992-04-08  |  674 b   |  32 lines
  1. %case doChoice%
  2.     %DoChoice%
  3. %case itemNr%
  4.     %DefineItem%
  5. %case classDecl%
  6.     %if not classname = superClass%
  7.     
  8.         Type
  9.             %classname% = Object (%superClass%) 
  10.                   Procedure Draw        (area:        Rect); Override;
  11.                 {$IFC qInspector}
  12.                 Procedure Fields    (
  13.                         Procedure DoToField    (fieldName:        Str255;
  14.                                              fieldAddr:        Ptr;
  15.                                              fieldType:        integer)
  16.                                     ); Override;
  17.                 {$ENDC}
  18.             end; {%classname%}
  19.     %endif%
  20. %case gDeadStripSuppression%
  21.     %StripSuppression%
  22. %case classMethods%
  23.     %if not classname = superClass%
  24.         {----------}
  25.         Procedure T%classname%.Draw    (area:        Rect); Override;
  26.         Begin
  27.             { Put something useful here }
  28.         End; {Draw}
  29.  
  30.     %endif%
  31.     %ClassMethods%
  32.